#amk 2
w150 t55

;Super Mario 64 / Koopa's Road
;Author		  = Isikoro
;Size		  = 06DB(-1)(06AA(-1)) bytes
;Channels used	  = 0,1,2,3,4,5,6,7
;Instruments used = 00,01,(06),08,0C,0D,0E,10,12,Noise

#spc
{
	#author "Isikoro"
	#game	"Super Mario 64"
	#comment ""
	#title	"Koopa's Road"
}

;#samples
;{
;        #optimized
;} 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#define Cymbal_Type 0		;set to 0 for hi-hat cymbal, set to 1 for noise cymbal
#define Intro_Position 0	;set to 0 fot Intro until 0:18, set to 1 fot Intro until 0:04
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#instruments
{
#if Cymbal_Type == 0 @22 $FF$E0$00$07$00 #endif
#if Cymbal_Type == 1 @00 $00$00$1F$03$00 #endif
@14 $F8$E7$00$07$00
@13 $F8$E0$00$03$00
@01 $F4$E6$00$03$00
@06 $FF$FA$00$03$00
@01 $F6$E6$00$03$00
@14 $F8$EF$00$07$00
@29 $FC$E0$00$03$00
@14 $FB$ED$00$07$00
}
"[@31]=@31v230 p0,0"
"[@32]=@32v255 p20,30"
"[@33]=@33v220 p20,20"
"[@34]=@34v170 p0,0"
"[@35]=@35v200 p10,20"
"[@36]=@36v230 p0,0"
"[@38-1]=@38v180 p0,0"
"[@38-2]=@38v200 p0,0"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;$DD$00$00$
"$o1c =$80""$o1c+=$81""$o1d =$82""$o1d+=$83""$o1e =$84""$o1f =$85""$o1f+=$86""$o1g =$87"
"$o1g+=$88""$o1a =$89""$o1a+=$8A""$o1b =$8B""$o2c =$8C""$o2c+=$8D""$o2d =$8E""$o2d+=$8F"
"$o2e =$90""$o2f =$91""$o2f+=$92""$o2g =$93""$o2g+=$94""$o2a =$95""$o2a+=$96""$o2b =$97"
"$o3c =$98""$o3c+=$99""$o3d =$9A""$o3d+=$9B""$o3e =$9C""$o3f =$9D""$o3f+=$9E""$o3g =$9F"
"$o3g+=$A0""$o3a =$A1""$o3a+=$A2""$o3b =$A3""$o4c =$A4""$o4c+=$A5""$o4d =$A6""$o4d+=$A7"
"$o4e =$A8""$o4f =$A9""$o4f+=$AA""$o4g =$AB""$o4g+=$AC""$o4a =$AD""$o4a+=$AE""$o4b =$AF"
"$o5c =$B0""$o5c+=$B1""$o5d =$B2""$o5d+=$B3""$o5e =$B4""$o5f =$B5""$o5f+=$B6""$o5g =$B7"
"$o5g+=$B8""$o5a =$B9""$o5a+=$BA""$o5b =$BB""$o6c =$BC""$o6c+=$BD""$o6d =$BE""$o6d+=$BF"
"$o6e =$C0""$o6f =$C1""$o6f+=$C2""$o6g =$C3""$o6g+=$C4""$o6a =$C5"
"!Cymbal_Set=@30o4p255,130"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#if Cymbal_Type == 0
"!Cym1F-4  = [<a192b192a192b192>c192d192c192d192]6"
"!Cym1F-4. = [<a192b192a192b192>c192d192c192d192]9"
"!Cym1F-2  = [<a192b192a192b192>c192d192c192d192]12"
"!Cym1F-1  = [<a192b192a192b192>c192d192c192d192]24"
"!Cym1E-4. = [<g192a192g192a192>c-192c192c-192c192]9"
"![Cym1F-4]  = [[<a192b192a192b192>c192d192c192d192]]6"
"![Cym1F-4.] = [[<a192b192a192b192>c192d192c192d192]]9"
"![Cym1F-2]  = [[<a192b192a192b192>c192d192c192d192]]12"
"![Cym1F-1]  = [[<a192b192a192b192>c192d192c192d192]]24"
"![Cym1E-4.] = [[<g192a192g192a192>c-192c192c-192c192]]9"
#endif
#if Cymbal_Type == 1
"!Cym1F-4  = n1Fc4"
"!Cym1F-4. = n1Fc4."
"!Cym1F-2  = n1Fc2"
"!Cym1F-1  = n1Fc1"
"!Cym1E-4. = n1Ec4."
"![Cym1F-4]  = n1Fc4"
"![Cym1F-4.] = n1Fc4."
"![Cym1F-2]  = n1Fc2"
"![Cym1F-1]  = n1Fc1"
"![Cym1E-4.] = n1Ec4."
#endif
;v255 $E8 $C0$00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#0      @15 v250 o5  l8 $F0;
$EF $03$20$20
$F1 $07$20$00
d12c12<g12d12c12<g12d1.
#if Intro_Position == 1
/$EF $03$20$20
#endif
[@32]o4
d1e1f1g1d1e1f1g2r2
#if Intro_Position == 0
/$EF $03$20$20
#endif
d2^8dfb+bgd2.d4c4.dgfg1
d2^8dfb+bgd4.dg>dc4<b2^8ab1
d+2^8d+a+>d+d<a+f2^8d+d+2^8d+fg+d1
d2^8dfb+bgd2.g1^1>
c2g2f4d2.c2g2f4d2b4c2g2f2d2
d+1.c2d1^1
d+1g+2d+2d1g1



#1      @15 v250 o4 l8;
d12c12<g12d12c12<g12d1.
[@32]o3q7c
#if Intro_Position == 1
/
#endif
a1b1>c1d1<a1b1>c1d2r2
#if Intro_Position == 0
/q7c
#endif
d2.dfb+bgd2.d4c4.dgfg1
d2^8dfb+bgd4.dg>dc4<b2^8g1
d+2.d+a+>d+d<a+f2^8f1f1;d+d+2^8d+fg+d1
d2.dfb+bgd2^8d+1f1
q7f
g2b+2b4f2.g2b+2b4f2.b+2b+2b2f2>;b4f2.
d1.c2c-1^1
d1<a2g+2g1>d1



#2      [@33] o2 l1 $FA$03$A0 ;
r2d.
#if Intro_Position == 1
/
#endif
dddddddd2r2
#if Intro_Position == 0
/
#endif
defgdefgfgg+a+defg
g+gg+gg+gf+1^1g1^1f+1^1g1^1



#3      [@31] o3;
r2d1.
#if Intro_Position == 1
/
#endif
[@31] o3 $FA$03$40 y10
v220$E8$C0$BE d1d1d1d2..r8
$ED$78$E3
v255$E8$C0$DC d1^1^1^2r2;d1d1d1d2r2;
$FA$03$00
#if Intro_Position == 0
/
#endif
[@38-1] l16 o3 y07
(300)[ar8.ar^4araaaa
br8.br^4brbbbb
o4
cr8.cr^4crcccc
dr8.dr^4drdddd]2
[@35]l1o4 y08
$F4$03
d+fd+dcdd+f
gfgfb+b>d+1.<b+2b1^1
>d+cc-d



#4      @12 v255 o2 l8;
r2
[@31] o2 y10 $FA$03$40
a1.
$FA$03$50
#if Intro_Position == 1
/
#endif
r8@12y07
[e8e4e8.e16e8d+4]7
e8e16e8.e2
#if Intro_Position == 0
/
#endif
r8
*30



#5      @37 v250 o3 l16;
r2^8
aaaar16
l32
v120$E8$18$FFaa
(500)[
aar8
v120$E8$18$FFaaaar8
v120$E8$18$FFaaaar16
v220a16a16v255a+16
$EE$50
v180g16
$EE$00
v250r16
v120$E8$18$FFaa]
#if Intro_Position == 1
/
#endif
(500)7
aar16a16a16a16a16r16
v120$E8$18$FFaaaar4.
v120$E8$18$FFaa
#if Intro_Position == 0
/
#endif
(500)7
(501)[aar16a16a16
v120$E8$90$FF[[a]]22]
v120$E8$18$FFaa
(500)7
(501)
v120$E8$18$FFaa
(502)[aar8
v120$E8$18$FFaaaar4.
v120$E8$18$FFaaaar4.
v120$E8$90$FF[[a]]24
v120$E8$18$FFaa]3
(500)6
(502)1



#6      l16;
r1^1
#if Intro_Position == 1
/
#endif
[@31] o2 $FA$03$40
v220$E8$C0$BE a1a1a1a2..r8
$ED$78$E3
v255$E8$C0$DC a1^1^1^2r2;a1a1a1a2r2;
#if Intro_Position == 0
/
#endif
[@38-1] l16 y13
$FA$02$F9
(300)2
o4
$FA$02$00
(601)[cr8.cr^4crcccc
dr8.dr^4drdddd]
$FA$02$FC
*2
$FA$02$00
*

[@34] o4 l16 y07
r8drdr8.dr8ddrc+r
r8drdr8.dr
[@38-2] o4 l8 y10
fgb+a+16$DD$00$18$o4b^8g8.
[@34] o4 l16 y07
r8dr8ddrc+r
r8drdr8.dr
[@38-2] o4 l8 y10
fgb+b+16$DD$00$18$o5c+^$DD$00$18$o4bg8.
[@34] o4 l16 y07
r8dr8ddrc+r
[r8drdr8.dr8ddrc+r]7
r8drdr8.
[@38-2] o4 l16 y10
a+4$DD$00$18$o4b^4
b4$DD$00$18$o5d^4
o5f4$DD$00$18$o5g^4



#7     [@34] y07 o4 l16;
r1^1
#if Intro_Position == 1
/
$E8 $00$00
[@34] y07
#endif
[r8drdr8.dr8ddrc+r]7
r8drdr8.dr4..
#if Intro_Position == 0
/
$E8 $00$00
[@34] y07
#endif
[r8drdr8.dr8ddrc+r]8

[@38-1]
$FA$02$F9
(601)
$FA$02$F7
(601)2
$FA$02$F9
(601)
$FA$02$00

!Cymbal_Set
[v255 $E8 $90$00![Cym1F-2]
v255 $E8 $90$00![Cym1F-2]
v255 $E8 $90$00![Cym1F-1]]3
v255 $E8 $90$00!Cym1F-1^2
[@38-2] o4 y10
a16^$DD$00$0C$o4g^$DD$00$0C$o4a^1^4^16
b16^$DD$00$0C$o4a^$DD$00$0C$o4b^1^2.^16
g16^$DD$00$0C$o4f^$DD$00$0C$o4g^2.^16
!Cymbal_Set y07
[v255 $E8 $90$00![Cym1F-2]]4
 
